home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / qb2 / pro12 / loadscrn.bas < prev    next >
Encoding:
BASIC Source File  |  1991-02-06  |  356 b   |  19 lines
  1. SCREEN 0, 1, 0, 0:CLS
  2. DEF SEG = &HB800
  3. FOR X = 0 TO 15 'This loop sets all the palettes to black
  4. PALETTE X, 0
  5. NEXT
  6. BLOAD "char.DAT", 0 'The name of your screen goes here
  7. CNT = -1
  8. FOR X = 4001 TO 4016  'This loop sets the saved palettes
  9. CNT = CNT + 1
  10. PALETTE CNT, PEEK(X)
  11. NEXT
  12. holdscreen:
  13. i$ = INKEY$
  14. IF i$ = "" THEN GOTO holdscreen
  15.  
  16.  
  17.  
  18.  
  19.